﻿Imports Microsoft.VisualBasic
Namespace OneCall.SMSGateway
    Public Module SMS
        Sub SendSMS(ByVal Message As String, ByVal Receipent As Long)
            Dim SMSSendObj As New OneCall.SMSServiceProvider.BSWSSoapClient
            Try
                SMSSendObj.SubmitSMS("bz_sathe_john@yahoo.com", "bizdev", Receipent, Message, "", 1, "MANISH", "9769747408")
            Catch ex As Exception

            End Try

        End Sub
    End Module
End Namespace
